home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / DTS Sample Code / Macintosh Sample Code / SC.013.OOPTESample / UTESample.p < prev   
Encoding:
Text File  |  1989-09-30  |  1.9 KB  |  71 lines  |  [TEXT/MPS ]
  1. {---------------------------------------------------------------------
  2. #
  3. #    Apple Macintosh Developer Technical Support
  4. #
  5. #    MultiFinder-Aware Simple TextEdit Sample Application
  6. #
  7. #    OOPTESample
  8. #
  9. #    UTESample.p        -    Pascal Source
  10. #
  11. #    Copyright © 1988, 1989 Apple Computer, Inc.
  12. #    All rights reserved.
  13. #
  14. #    Version:        
  15. #                    1.10                    10/89
  16. #                    1.00                    04/89
  17. #
  18. #    Components:     
  19. #                    BuildOOPTESample        October 1, 1989
  20. #                    MOOPTESample.p            October 1, 1989
  21. #                    OOPTESample.make        October 1, 1989
  22. #                    TECommon.h                October 1, 1989
  23. #                    TESampleGlue.a            October 1, 1989
  24. #                    TESample.r                October 1, 1989
  25. #                    UApplication.p            October 1, 1989
  26. #                    UApplication.inc1.p        October 1, 1989
  27. #                    UDocument.p                October 1, 1989
  28. #                    UDocument.inc1.p        October 1, 1989
  29. #                    UTEDocument.p            October 1, 1989
  30. #                    UTEDocument.inc1.p        October 1, 1989
  31. #                    UTESample.p                October 1, 1989
  32. #                    UTESample.inc1.p        October 1, 1989
  33. #
  34. ---------------------------------------------------------------------}
  35.  
  36. UNIT UTESample;
  37.  
  38. INTERFACE
  39.  
  40. USES
  41.     Types, QuickDraw, Events, OSUtils, ToolUtils, Controls, Windows,
  42.     TextEdit, Dialogs, SegLoad, Fonts, Traps, Desk, Menus, Memory, Scrap, 
  43.     ObjIntf, UDocument, UApplication, UTEDocument;
  44.  
  45. TYPE
  46.     TTESample = OBJECT(TApplication)
  47.     
  48.         { Initialize our application and instance variables }
  49.         PROCEDURE TTESample.ITESample;
  50.         
  51.         { Routines from TApplication we are overriding }
  52.         PROCEDURE TTESample.DoIdle; OVERRIDE;
  53.         PROCEDURE TTESample.AdjustMenus; OVERRIDE;
  54.         PROCEDURE TTESample.AdjustCursor; OVERRIDE;
  55.         PROCEDURE TTESample.DoMenuCommand(menuID,menuItem: integer); OVERRIDE;
  56.         FUNCTION TTESample.HeapNeeded: Longint; OVERRIDE;
  57.         FUNCTION TTESample.SleepVal: LongInt; OVERRIDE;
  58.         
  59.         { Routines for our own devious purposes }
  60.         PROCEDURE TTESample.DoNew;
  61.         PROCEDURE TTESample.Terminate;
  62.     END;
  63.     
  64. VAR
  65.     gTheApplication:    TTESample;
  66.  
  67. IMPLEMENTATION
  68.  
  69. {$I UTESample.inc1.p}
  70.  
  71. END.